home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / SOS.ASC < prev    next >
Text File  |  1982-07-04  |  1KB  |  31 lines
  1. 50000 IF C5$<>"DOCKED"THEN 50030
  2. 50010 PRINT"--> CAPTAIN, WE'RE ALREADY DOCKED!"
  3. 50020 GOTO 70
  4. 50030 IF D4(9)=0 THEN 50050
  5. 50040 PRINT"SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT.":GOTO 70
  6. 50050 IF R3<>0 THEN 50070
  7. 50060 PRINT"CAPTAIN, NO RESPONSE FROM STARBASE !":GOTO 70
  8. 50070 N1=N1+1:IF B6=0 THEN 50090
  9. 50080 GOTO 50150
  10. 50090 D1=1E+30
  11. 50100 FOR L=1 TO R3:X=10*SQR((B2(L)-Q1)^2+(B3(L)-Q2)^2)
  12. 50110 IF X>D1 THEN 50130
  13. 50120 D1=X:K=L
  14. 50130 NEXT L
  15. 50140 Q1=B2(K):Q2=B3(K):GOSUB 18000
  16. 50150 Q$(S6,S7)="."
  17. 50160 PRINT
  18. 50170 PRINT"STARBASE IN QUADRANT";Q1;"-";Q2;"RESPONDS --";
  19. 50180 PRINT"  ";S5$;" DEMATERIALIZES."
  20. 50190 P2=(1-.9799999^D1)^.333333
  21. 50200 FOR L=1 TO 3
  22. 50210 IF L=1 THEN PRINT"1ST ";
  23. 50220 IF L=2 THEN PRINT"2ND ";
  24. 50230 IF L=3 THEN PRINT"3RD ";
  25. 50240 PRINT"ATTEMPT TO RE-MATERIALIZE THE ";S5$;". . . . .";
  26. 50250 IF RND(1)>P2 THEN 11220
  27. 50260 PRINT"FAILS.":NEXT L
  28. 50270 F9=11:CHAIN MERGE "END.ASC",50000!,ALL,DELETE 50000-60000
  29. 60000 REM end overlay
  30. HEN 11220
  31. 50260 PRINT"FAILS.":NEXT